10 GOSUB 650
20 AUTOMATA 64   BY IAN ADAM
30 :
40 : MAIN LOOP
50 :
60 PRINT TAB(6)R$"[145]":INPUT"CODE";R$
70 A=5887:FOR I=1 TO 10
80 POKE A+I,VAL(MID$(R$,I,1)) AND 3
90 NEXT
100 :
110 PRINT "SEED VALUE  1[157][157][157]";:INPUT B$
120 IF VAL(B$)=0 THEN 250
130 PRINT "POSITION (1-40)  20[157][157][157][157]";:INPUT A
140 GOSUB 540:FOR I=8192 TO 8504 STEP 8:POKE I,0:NEXT
150 POKE 8184+8*A,VAL(B$) AND 255
160 :
170 SYS 5900
180 :
190 FOR I=0 TO 999:IF PEEK(K) THEN 240
200 NEXT:GOSUB 590:PRINT"M MORE OF THIS  P PRINT THIS
210 [153]"S NEW SEED  R RANDOM SEED
220 PRINT"C NEW CODE  A AUTOMATIC CODES
230 [153]"V VIEW PLOT  Q QUIT";
240 [146] K,7:[161] B$
250 [129] I[178]1 [164] 7:[139] [202]("SRMCAPQ",I,1) [179][177] B$ [167] [130]
260 [145] I [137] 290,310,330,370,390,490,610
270 [141] 540:[137] 190
280 :
290 [141] 590:[137] 110:[162] SEED
300 :
310 R[178]255:[150] [165]S(X)[178][187](X)[172]R:[137] 340:R[175]OM SEED
320 :
330 R[178]7687:[150] [165]S(X)[178][194](R[170]X):[143] COPY LAST LINE
340 [129] I[178]8192 [164] 8504 [169] 8
350 [151] I,[165]S(I):[130]:[141] 540:[137] 170
360 :
370 [141] 590:[137] 60:[162] CODE
380 :
390 [141] 540:R[178]255:[129] J[178]0 [164] 1:R$[178]"":[143] AUTOMATIC
400 [129] L[178]5888 [164] 5897:A[178][187](L)[172]4
410 [151] L,A:R$[178]R$[170][199](48[170]A):[130]
420 :
430 [129] L[178]8192 [164] 8504 [169] 8
440 [151] L,[187](L)[172]R:[130]
450 :
460 [158] 5900
470 J[178][194](K):[130]:[151] K,0:[137] 190
480 :
490 [141] 540:A$[178][199](10):[159] 4,4,5:[143] 2ND ADDRS GRAFIX, NO LF
500 [157] 4:[158] 6060
510 [153]A$A$[199](14)"CODE: "R$A$A$
520 [152]4:[160] 4:[137] 190
530 :
540 [139] [194](V)[178]59 [167] [142]
550 [151] V,59:[151] V[170]5,216:[151] V[170]7,24:[143] HIRES
560 [153]"CONT";:[129] I[178]1 [164] 111:[153]"---------";:[130]
570 [151] 2023,173:[151] 56295,14:[142]:COL[176]S
580 :
590 [151] V,27:[151] V[170]5,200:[151] V[170]7,21:[153]:[142]:TEXT
600 :
610 [158] 65409:[128]
620 :
630 : START[171]UP
640 :
650 [151] 53280,0:[151] 53281,0:[151] 46,64:[156]:K[178]198:V[178]53265
660 :
670 [153]"LOAD  CELLULAR AUTOMATA FOR THE 64
680 PRINT"THIS PROGRAM CREATES COMPLEX
690 [153]"GEOMETRIC ARTFORMS ON THE SCREEN.
700 PRINT"THE IMAGE IS GENERATED LINE-BY-LINE
710 [153]"ACCORDING TO THESE RULES:
720 PRINT"[158]- A PIXEL HAS A COLOUR VALUE 0,1,2,3
730 [153]"- ADD THE VALUES OF 3 ADJOINING PIXELS
740 PRINT"  IN A LINE.
750 [153]"- THE SUM (0-9) IS USED TO SELECT A
760 PRINT"  NEW COLOUR FROM THE CODE YOU SPECIFY.
770 [153]"- THIS NEW COLOUR IS PLOTTED AS THE
780 PRINT"  PIXEL DIRECTLY BELOW.
790 [153]"- THE CODE HAS 10 DIGITS, CORRESPONDING
800 PRINT"  TO THE 10 VALUES OF THE SUM (0-9).
810 [153]"AUTOMATA WERE INTRODUCED IN SCIENTIFIC
820 PRINT"AMERICAN IN 1971 & 1984, AND A VERSION
830 [153]"APPEARED IN BYTE MAGAZINE IN 1986. THIS
840 PRINT"ENHANCED VERSION FOR THE 64 IS BY
850 [153]"IAN ADAM & TRANSACTOR MAGAZINE, 1987.
860 IF PEEK(5900)-160 THEN GOSUB 1100
870 PRINT"[158]PRESS RETURN!":INPUT A$
880 :
890 PRINT"[147]  INSTRUCTIONS:
900 [153]"YOU ENTER A 10-DIGIT RULE, USING
910 PRINT"THE DIGITS 0, 1, 2, AND 3.
920 [153]"NEXT, ENTER A SEED VALUE WHICH
930 PRINT"IS PLOTTED ON THE TOP LINE.
940 [153]"IF YOU ENTER R, A RANDOM SEED IS USED.
950 PRINT"IF YOU ENTER A SEED #, YOU MUST
960 [153]"ALSO SUPPLY ITS POSITION ON THE LINE.
970 PRINT"[158]AFTER PLOTTING, PRESS:
980 [153]"- S  ENTER A NEW SEED
990 PRINT"- R  FOR A RANDOM SEED
1000 [153]"- M  MORE OF THE SAME PLOT
1010 PRINT"- C  ENTER NEW CODE
1020 [153]"- A  AUTOMATIC CODE GENERATION
1030 PRINT"- P  SEND PATTERN TO PRINTER
1040 [153]"- Q  QUIT
1050 PRINT"THE CURRENT CODE WILL BE SHOWN LIKE
1060 [153]"THIS. MAKE ANY CHANGES & PRESS RETURN:
1070 R$="0120123123
1080 [137] 60
1090 :
1100 [129] I[178]5900 [164] 6132:[135] A:[151] I,A:[130]
1110 [142]
1120 :
1130 [131]160,32,132,251,132,253,160,1,132,252,136,132,250,162,199,134,166,162
1140 [131]39,134,167,132,169,177,250,133,168,165,167,240,4,160,8,177,250,10
1150 [131]38,168,42,38,168,42,41,3,133,170,160,4,169,0,38,168,42,38
1160 [131]168,42,72,101,170,101,169,170,165,170,133,169,104,133,170,189,0,23
1170 [131]6,254,6,254,5,254,133,254,136,208,221,145,252,24,198,167,16,40
1180 [131]162,2,181,250,41,7,201,7,240,15,56,181,250,233,55,149,250,181
1190 [131]251,233,1,149,251,208,6,246,250,208,2,246,251,202,202,240,223,198
1200 [131]166,208,144,96,162,2,181,250,105,8,149,250,144,3,246,251,24,202
1210 [131]202,240,241,76,35,23,27,65,8,13,10,27,75,64,1,0,160,32
1220 [131]132,251,160,0,132,250,160,25,132,252,160,0,185,162,23,32,210,255
1230 [131]200,192,9,208,245,160,40,132,253,160,7,177,250,162,7,42,118,166
1240 [131]202,16,250,136,16,243,169,7,170,56,101,250,133,250,144,2,230,251
1250 [131]181,166,32,210,255,202,16,248,198,253,208,217,198,252,208,196,96